object fmUserManage: TfmUserManage
  Left = 0
  Top = 0
  Caption = 'User Info'
  ClientHeight = 569
  ClientWidth = 710
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object cxSplitter1: TcxSplitter
    Left = 200
    Top = 0
    Width = 8
    Height = 569
    HotZoneClassName = 'TcxXPTaskBarStyle'
    HotZone.SizePercent = 38
    Control = vstUser
  end
  object pnlMain: TPanel
    Left = 208
    Top = 0
    Width = 502
    Height = 569
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
  end
  object vstUser: TVirtualStringTree
    Left = 0
    Top = 0
    Width = 200
    Height = 569
    Align = alLeft
    Header.AutoSizeIndex = 0
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'Tahoma'
    Header.Font.Style = []
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag]
    PopupMenu = SpTBXPopupMenu1
    TabOrder = 2
    OnFocusChanged = vstUserFocusChanged
    OnGetText = vstUserGetText
    OnGetImageIndex = vstUserGetImageIndex
    Columns = <>
  end
  object tblDepartment: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'bd_id'
        DataType = datGuid
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'bd_name'
        DataType = datWideString
        Size = 30
        Required = True
      end
      item
        Name = 'bd_parent'
        DataType = datWideString
        Size = 30
      end
      item
        Name = 'bd_leader'
        DataType = datWideString
        Size = 30
      end
      item
        Name = 'bd_desc'
        DataType = datWideString
        Size = 120
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = ClientDataModule.RemoteDataAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'b_department'
    IndexDefs = <>
    Left = 188
    Top = 208
  end
  object SpTBXPopupMenu1: TSpTBXPopupMenu
    Left = 44
    Top = 198
    object SpTBXItem2: TSpTBXItem
      Caption = 'New Department'
      OnClick = SpTBXItem2Click
    end
    object SpTBXItem1: TSpTBXItem
      Caption = 'New User'
    end
  end
  object tblUser: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = ClientDataModule.RemoteDataAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'b_user'
    IndexDefs = <>
    Left = 228
    Top = 210
  end
end
